home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / NOISE2.PI < prev    next >
Encoding:
Text File  |  1992-02-04  |  1.2 KB  |  59 lines
  1. # Generic Polyray input File
  2. # Polyray input file: Alexander Enzmann
  3.  
  4. # Set up the camera
  5. viewpoint {
  6.    from <0,0,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 40
  10.    resolution 320, 160
  11.    aspect 2
  12.    }
  13.  
  14. background <0, 0, 0>
  15. light <-10,3, -20>
  16.  
  17. define test_map
  18.    color_map(
  19.       [0,   0.3, red,     orange]
  20.       [0.1, 0.3, orange,  blue]
  21.       [0.3, 0.5, blue,    skyblue]
  22.       [0.5, 0.7, skyblue, orange]
  23.       [0.7, 0.9, orange,  magenta]
  24.       [0.9, 1.0, magenta, red],
  25.       <1, 1, 1>)
  26.  
  27. # Simple color map texture
  28. define test_noise_texture0
  29. texture {
  30.    special surface {
  31.       color test_map[noise(P)]
  32.       ambient 0.2
  33.       diffuse 0.8
  34.       specular white, 0.5
  35.       microfacet Reitz 10
  36.       }
  37.    translate <30, 20, -40>
  38.    scale <0.6, 0.6, 0.6>
  39.    }
  40.  
  41. define test_noise_texture1
  42. texture {
  43.    special surface {
  44.       color test_map[noise(brownian(P))]
  45.       ambient 0.2
  46.       diffuse 0.8
  47.       specular white, 0.5
  48.       microfacet Reitz 10
  49.       }
  50.    translate <30, 20, -40>
  51.    scale <0.6, 0.6, 0.6>
  52.    }
  53.  
  54. define two_sphere
  55. object { sphere <0, 0, 0>, 2 }
  56.  
  57. two_sphere { translate <-2.5, 0, 0> test_noise_texture1 }
  58. two_sphere { translate < 2.5, 0, 0> test_noise_texture0 }
  59.